home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0643A.ZIP / DATES / SYSDAT.PRG < prev    next >
Text File  |  1987-04-11  |  2KB  |  73 lines
  1. * SYSDAT.PRG
  2. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  3. *
  4. *   Neither dBASE III nor dBASE III PLUS have the ability to set or change
  5. *   the system date directly.  However, this little routine will do it for
  6. *   you.  It is provided as a freeware program for public domain.  Feel
  7. *   free to incorporate it into any of your programs.
  8. *
  9. *       Pat Adams
  10. *       DB Unlimited
  11. *       (718) 469-4961
  12. *
  13. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  14. SET TALK OFF
  15. SET STATUS OFF
  16. SET SCOREBOARD OFF
  17. STORE " " TO OKAY
  18.  
  19. DO WHILE UPPER(OKAY) # "Y"
  20.     STORE CTOD("  /  /  ") TO NEWDAY
  21.     SET COLOR TO W/N, W/N, N
  22.     CLEAR
  23.     SET COLOR TO N/W, W+/N
  24.     @ 05,10 CLEAR TO 12,68
  25.     @ 05,10 TO 12,68 DOUBLE
  26.     * Get user input for date setting
  27.     @ 08,13 SAY "Please enter the date to be used for the system date:"
  28.     SET COLOR TO +W/N
  29.     @ 03,18 CLEAR TO 05,61
  30.     @ 03,18 TO 05,61
  31.     @ 04,20 SAY "SET OR CHANGE THE COMPUTER'S SYSTEM DATE"
  32.     @ 10,35 GET NEWDAY
  33.     READ
  34.     SET COLOR TO W/N, W/N, N
  35.     CLEAR
  36.     SET COLOR TO +W/N, N/W
  37.     @ 05,12 CLEAR TO 16,67
  38.     *  User validation of input
  39.     @ 05,12 TO 16,67 DOUBLE
  40.     @ 08,18 SAY "You entered " + DTOC(NEWDAY) + " as the date to be used."
  41.     @ 10,32 SAY "IS THIS CORRECT?"
  42.     SET COLOR TO N/W
  43.     @ 03,27 CLEAR TO 05,55
  44.     @ 03,27 TO 05,55
  45.     @ 04,29 SAY "SET OR CHANGE SYSTEM DATE"
  46.     STORE " " TO OKAY
  47.     SET COLOR TO +W/N, N/W
  48.  
  49.     DO WHILE AT(OKAY, "YyNn") = 0
  50.     *  Error trapping routine
  51.         @ 12,29 SAY "Please enter Y or N: " GET OKAY
  52.         READ
  53.     ENDDO while at(okay, "YyNn") = 0
  54.  
  55.     IF UPPER(OKAY) = "N"
  56.     *  If user indicates incorrect input loop to permit re-entry of data
  57.         LOOP
  58.     ENDIF
  59.  
  60.     CLEAR
  61.     ?
  62.     ?
  63.     ?
  64.     ?
  65.     *  Convert NEWDAY to memory variable usable by DOS
  66.     STORE STR(MONTH(NEWDAY),2,0) + "-" + IIF(DAY(NEWDAY)< 10, "0" + STR(DAY(NEWDAY),1,0),STR(DAY(NEWDAY),2,0))  + "-" + STR(YEAR(NEWDAY),4,0) TO SETDAY
  67.     * Return to DOS to set system date
  68.     RUN DATE &SETDAY
  69. ENDDO while upper(okay) # "Y"
  70.  
  71. RETURN
  72. * END Sysdat.prg
  73.